home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Auge 4000 / Auge 4000 #50 (1990-10-12)(Amiga User Gruppe Einzugsgebiet 4000).zip / Auge 4000 #50 (1990-10-12)(Amiga User Gruppe Einzugsgebiet 4000).adf / Neptun (.txt) < prev    next >
AmigaBASIC Source Code  |  1990-10-16  |  4KB  |  107 lines
  1. REM *** Neptun ***
  2. PALETTE 0,0,0,0
  3. GOTO Neptun2:
  4.  
  5. Neptun:
  6.  
  7. Neptunroutine:
  8. LINE(0,80)-(600,80)
  9. BVERH=0.5
  10. CIRCLE(320,50),24.75,1,,,BVERH
  11. BVERH=BVERH*1
  12. PALETTE 1,0.4,0.5,1
  13. PAINT(320,50),1
  14. RETURN
  15. Neptun2:
  16. CLS
  17. GOSUB Neptunroutine
  18. PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT 
  19. PRINT
  20. PRINT"                               Umlaufbahn"
  21. PRINT"Der Neptun ist ca. 4686 Mio. km von der Sonne entfernt."
  22. PRINT"Die Bahnexzentrizität beträgt 0,9% .Der Planet bewegt sich"
  23. PRINT"auf seinem Weg um die Sonne mit einer Bahngeschwindigkeit"
  24. PRINT"von durchschnittlich 5,43 km/s.Neptun ist mit 1° 46´ gegen"
  25. PRINT"die Ekliptik geneigt."
  26. PRINT"                               Rotation"
  27. PRINT"Die Eigenrotation des Neptun wurde mit 15 Std. 14 Min. "
  28. PRINT"errechnet. Nach einem neuen Meßverfahren soll aber eine"
  29. PRINT"Umdrehung ca. 23 Std. dauern."
  30. PRINT"M:Menü                                   I:More Info"
  31. Taste122:
  32. AQ$=INKEY$
  33. IF AQ$<>"" THEN AQ$=UCASE$(AQ$)
  34.      IF AQ$="M" THEN Hauptmenu
  35.      IF AQ$="I" THEN Neptun4
  36. GOTO Taste122
  37. Neptun4:
  38. CLS
  39. GOSUB Neptunroutine
  40. PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT 
  41. PRINT
  42. PRINT"                             Neptuns Atmosphäre"
  43. PRINT"Auch die Neptunatmosphäre besteht wahrscheinlich aus Wasserstoff"
  44. PRINT",Helium,Methan und Ammoniak."
  45. PRINT"In den oberen Atmosphärenschichten dürften Temperaturen "
  46. PRINT"um -220°C herschen-weiter unten in der Stratosphäre etwa-130°C"
  47. PRINT"                              Kern des Neptun"
  48. PRINT"Astronomen vermuten das der feste Teil Neptuns aus einem"
  49. PRINT"16000 km im Durchmesser großen aus Eis ,Gestein und Metallen"
  50. PRINT"bestehender Kern ist. Ebenfalls wie beim Uranus wird darum"
  51. PRINT"ein 8000 km dicker Eispanzer vermutet. Umhüllt wird das ganze"
  52. PRINT"wahrscheinlich von einer 9000 km dicken Atmosphären."
  53. PRINT"M:Menü                                   I:More Info"
  54. Taste124:
  55. AR$=INKEY$
  56. IF AR$<>"" THEN AR$=UCASE$(AR$)
  57.      IF AR$="M" THEN Hauptmenu
  58.      IF AR$="I" THEN Neptun6
  59. GOTO Taste124
  60. Neptun6:
  61. CLS
  62. GOSUB Neptunroutine
  63. PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT 
  64. PRINT
  65. PRINT"                             Monde des Neptun:"
  66. PRINT"Der Neptun hat drei Monde. Triton hat einen Durchmesser"
  67. PRINT"von 4200 km und ist 355 000 km vom Neptun entfernt."
  68. PRINT"Auffalend an Triton ist das seine Umlaufbahn mit 160°"
  69. PRINT"gegen den Äqator des Neptun geneigt ist - ein einmaliger"
  70. PRINT"Fall im Sonnensystem - .Das heißt das Triton Neptun vertikal"
  71. PRINT"umkreist bei einer horizontalen Stellung des Neptunäqators."
  72. PRINT"Außerdem wurde bei Triton eine dünne Atmosphäre aus"
  73. PRINT"Stickstoff und Methan festgestellt. Bei den geringen "
  74. PRINT"Temperaturen dürfte das Methan im festen und der Stickstoff"
  75. PRINT"im flüssigen Agregatzustand anzutreffen sein. Der Luft-"
  76. PRINT"druck auf Triton beträgt 0,1 bar(Erde=1024bar)."
  77. PRINT"M:Menü                                  I:More Info"
  78. Taste128:
  79. AU$=INKEY$
  80. IF AU$<>"" THEN AU$=UCASE$(AU$)
  81.      IF AU$="M" THEN Hauptmenu
  82.      IF AU$="I" THEN Neptun7
  83. GOTO Taste128
  84. Neptun7:
  85. CLS
  86. GOSUB Neptunroutine
  87. PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT 
  88. PRINT
  89. PRINT"Der zweite Mond des Neptun ist Nereide. er hat einen"
  90. PRINT"Durchmesser von 400 km und ist 5 560 000 km vom Neptun"
  91. PRINT"entfernt. Vom dritten neulich erst entdeckten Mond des"
  92. PRINT"Neptun liegen mir noch keine Daten vor."
  93. PRINT"Mehr Informationen über Neptun und seinen Monden"
  94. PRINT"werden den Wissenschaftlern wohl erst dann vorliegen"
  95. PRINT"wenn die Voyager-Raumsonde den Neptun 1989 erreicht hat."
  96. PRINT"M:Menü       "
  97. Taste130:
  98. AT$=INKEY$
  99. IF AT$<>"" THEN AT$=UCASE$(AT$)
  100.      IF AT$="M" THEN Hauptmenu
  101. GOTO Taste130
  102. Hauptmenu:
  103. CHAIN"Amiga-Astro-Info`88g"
  104.                          
  105.              
  106.  
  107.